﻿'Option Strict Off
Option Explicit On
Imports System

Imports System.Data.Common

Namespace BasicDataTableAdapters
    Partial Public Class Projects1TableAdapter
        Inherits System.ComponentModel.Component

        Public Function GetDataByFilter(ByVal dataTable As BasicData.Projects1DataTable, ByVal SQLExpression As String) As Integer
            Dim OriginalCommandText As String
            OriginalCommandText = Me.CommandCollection(4).CommandText
            Try
                Me.CommandCollection(4).CommandText += SQLExpression
                Return Me.FillbyCustom(dataTable)
            Catch ex As Exception

            Finally
                Me.CommandCollection(4).CommandText = OriginalCommandText
            End Try
        End Function

    End Class
    Partial Public Class FCTR_Child2TableAdapter
        Inherits System.ComponentModel.Component
        Public Function GetDataByFilterReport(ByVal dataTable As BasicData.FCTR_Child2DataTable, ByVal SQLExpression As String) As Integer
            Dim result As String = "'0'"
            Dim OriginalCommandText As String
            OriginalCommandText = Me.CommandCollection(7).CommandText
            Try
                Me.CommandCollection(7).CommandText += SQLExpression
                Return Me.FillBy6(dataTable)
            Catch ex As Exception
            Finally
                Me.CommandCollection(7).CommandText = OriginalCommandText
            End Try
        End Function

    End Class
End Namespace